home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.43 / flushcx / source / commodities.lib next >
Text File  |  1995-01-07  |  2KB  |  60 lines
  1. {$if not def COMMODITIES_LIB_H} CONST COMMODITIES_LIB_H=0;
  2.  
  3. { *****************************************************************
  4.   ** KickPascal-Include-Datei "commodities.lib" zu Kickstart 3.0 **
  5.   ***************************************************************** }
  6.  
  7. {$if not def EXEC_NODES_H;incl "exec/nodes.h";endif}
  8. {$if not def LIBRARIES_COMMODITIES_H;incl "libraries/commodities.h";endif}
  9. {$if not def DEVICES_INPUTEVENT_H;incl "devices/inputevent.h";endif}
  10. {$if not def DEVICES_KEYMAP_H;incl "devices/keymap.h";endif}
  11.  
  12. VAR CxBase : Ptr;
  13.  
  14. LIBRARY CxBase :
  15.  
  16. { **** Routinen ab V36 / Release 2.0  **** }
  17.  
  18.  -30 : FUNCTION  CreateCxObj(D0:Long; A0,A1:LongInt): p_CxObj;
  19.  -36 : FUNCTION  CxBroker(A0:p_NewBroker; D0:Ptr): p_CxObj;
  20.  -42 : FUNCTION  ActivateCxObj(A0:p_CxObj; D0:LongInt): LongInt;
  21.  -48 : PROCEDURE DeleteCxObj(A0:p_CxObj);
  22.  -54 : PROCEDURE DeleteCxObjAll(A0:p_CxObj);
  23.  -60 : FUNCTION  CxObjType(A0:p_CxObj): Long;
  24.  -66 : FUNCTION  CxObjError(A0:p_CxObj): LongInt;
  25.  -72 : PROCEDURE ClearCxObjError(A0:p_CxObj);
  26.  -78 : PROCEDURE SetCxObjPri(A0:p_CxObj; D0:LongInt);
  27.  -84 : PROCEDURE AttachCxObj(A0,A1:p_CxObj);
  28.  -90 : PROCEDURE EnqueueCxObj(A0,A1:p_CxObj);
  29.  -96 : PROCEDURE InsertCxObj(A0,A1,A2:p_CxObj);
  30. -102 : PROCEDURE RemoveCxObj(A0:p_CxObj);
  31. { *** private Routine *** }
  32. -114 : PROCEDURE SetTranslate(A0:p_CxObj; A1:p_IX);
  33. -120 : PROCEDURE SetFilter(A0:p_CxObj; A1:p_IX);
  34. -126 : PROCEDURE SetFilterIX(A0:p_CxObj; A1:p_IX);
  35. -132 : FUNCTION  ParseIX(A0:Ptr; A1:p_IX): LongInt;
  36. -138 : FUNCTION  CxMsgType(A0:p_CxMsg): Long;
  37. -144 : FUNCTION  CxMsgData(A0:p_CxMsg): Byte;
  38. -150 : FUNCTION  CxMsgID(A0:p_CxMsg): LongInt;
  39. -156 : PROCEDURE DivertCxMsg(A0:p_CxMsg; A1,A2:p_CxObj);
  40. -162 : PROCEDURE RouteCxMsg(A0:p_CxMsg; A1:p_CxObj);
  41. -168 : PROCEDURE DisposeCxMsg(A0:p_CxMsg);
  42. -174 : FUNCTION  InvertKeyMap(D0:Long; A0:p_InputEvent; A1:p_KeyMap): Long;
  43. -180 : PROCEDURE AddIEvents(A0:p_InputEvent);
  44. { *** 3 private Routinen *** }
  45.  
  46. { ******************************************************************* }
  47. { Hier kommt die Ergänzung, done by Janosh/NPL                        }
  48. { ********************************************************************}
  49.  
  50.  
  51. -186 : FUNCTION  CopyBrokerList(A0:p_List):long;
  52. -192 : FUNCTION  FreeBrokerList(A0:p_List):long;
  53. -198 : PROCEDURE BrokerCommand(A0:str;D0:long);
  54.  
  55. { **** Rountinen ab V38 / Release 2.1 **** }
  56. -204 : FUNCTION MatchIX(A0:p_InputEvent; A1:p_IX): Boolean;
  57. { *** 5 private Routinen *** }
  58. END;
  59. {$endif}
  60.